home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / HyperMac™1.2.cpt / Home / card_2980.txt < prev    next >
Text File  |  1987-11-27  |  3KB  |  150 lines
  1. -- card: 2980 from stack: in
  2. -- bmap block id: 2234
  3. -- flags: 4000
  4. -- background id: 2766
  5. -- name: Home
  6. ----- HyperTalk script -----
  7. on openCard
  8.  
  9.   put the long date into card field "loc date"
  10. end openCard
  11.  
  12. on idle
  13.   put the time into card field "Time"
  14.   pass idle
  15. end idle
  16.  
  17.  
  18.  
  19. -- part 1 (field)
  20. -- low flags: 01
  21. -- high flags: 0000
  22. -- rect: left=126 top=318 right=334 bottom=196
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 1
  26. -- font id: 2
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: Time
  31.  
  32.  
  33. -- part 6 (button)
  34. -- low flags: 00
  35. -- high flags: 8000
  36. -- rect: left=377 top=240 right=288 bottom=512
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 1000 / 1000
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: Open Stack
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   visual effect zoom open slow
  48.   domenu Open Stack...
  49.  
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 16 (field)
  55. -- low flags: 01
  56. -- high flags: 0000
  57. -- rect: left=50 top=303 right=319 bottom=283
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 2
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: loc date
  66.  
  67.  
  68. -- part 22 (button)
  69. -- low flags: 00
  70. -- high flags: 8000
  71. -- rect: left=376 top=95 right=151 bottom=512
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 1006 / 1006
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Finder
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   DoMenu Quit HyperCard
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 26 (button)
  88. -- low flags: 00
  89. -- high flags: 8000
  90. -- rect: left=377 top=194 right=241 bottom=512
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 1007 / 1007
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Print Card
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   DoMenu "Print Card"
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 28 (button)
  107. -- low flags: 00
  108. -- high flags: 0000
  109. -- rect: left=437 top=20 right=48 bottom=467
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 26635 / 26635
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Help
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   go to stack "Help"
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 40 (button)
  126. -- low flags: 00
  127. -- high flags: 8000
  128. -- rect: left=377 top=150 right=195 bottom=512
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 10610 / 10610
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Area Codes
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   go to stack "Phantom Stack I:BBSs"
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part contents for card part 1
  145. ----- text -----
  146. 21:37
  147.  
  148. -- part contents for card part 16
  149. ----- text -----
  150. Friday, November 27, 1987